;;(setq calendar-week-start-day 1) 

 ;;----------日历设置--------------------
 
 ;;设置日历的一些颜色
 (setq calendar-load-hook
 '(lambda ()
 (set-face-foreground 'diary-face "skyblue")
 (set-face-background 'holiday-face "slate blue")
 (set-face-foreground 'holiday-face "white")))
 
 ;;设置我所在地方的经纬度，calendar里有个功能是日月食的预测，和你的经纬度相联系的。
 ;; 让emacs能计算日出日落的时间，在 calendar 上用 S 即可看到
 (setq calendar-latitude +39.54)
 (setq calendar-longitude +116.28)
 (setq calendar-location-name "北京")
 
 ;; 设置阴历显示，在 calendar 上用 pC 显示阴历
 (setq chinese-calendar-celestial-stem
   ["甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"])
 (setq chinese-calendar-terrestrial-branch
   ["子" "丑" "寅" "卯" "辰" "巳" "戊" "未" "申" "酉" "戌" "亥"])
 
 ;; 设置 calendar 的显示
 (setq calendar-remove-frame-by-deleting t)
 (setq calendar-week-start-day 1)            ; 设置星期一为每周的第一天
 (setq mark-diary-entries-in-calendar t)     ; 标记calendar上有diary的日期
 (setq mark-holidays-in-calendar nil)        ; 为了突出有diary的日期，calendar上不标记节日
 (setq view-calendar-holidays-initially nil) ; 打开calendar的时候不显示一堆节日
 
 ;; 去掉不关心的节日，设定自己在意的节日，在 calendar 上用 h 显示节日
 (setq christian-holidays nil)
 (setq hebrew-holidays nil)
 (setq islamic-holidays nil)
 (setq solar-holidays nil)
 (setq general-holidays '((holiday-fixed 1 1 "元旦")
                          (holiday-fixed 2 14 "情人节")
                          (holiday-fixed 3 14 "白色情人节")
                          (holiday-fixed 4 1 "愚人节")
                          (holiday-fixed 5 1 "劳动节")
                          (holiday-float 5 0 2 "母亲节")
                          (holiday-fixed 6 1 "儿童节")
                          (holiday-float 6 0 3 "父亲节")
                          (holiday-fixed 7 1 "建党节")
                          (holiday-fixed 8 1 "建军节")
                          (holiday-fixed 9 10 "教师节")
                          (holiday-fixed 10 1 "国庆节")
                          (holiday-fixed 12 25 "圣诞节")))
 
 ;;Calendar模式支持各种方式来更改当前日期
 ;;（这里的“前”是指还没有到来的那一天，“后”是指已经过去的日子）
 ;;  q      退出calendar模式
 ;; C-f     让当前日期向前一天
 ;; C-b     让当前日期向后一天
 ;; C-n     让当前日期向前一周
 ;; C-p     让当前日期向后一周
 ;; M-}     让当前日期向前一个月
 ;; M-{     让当前日期向后一个月
 ;; C-x ]   让当前日期向前一年
 ;; C-x [   让当前日期向后一年
 ;; C-a     移动到当前周的第一天
 ;; C-e     移动到当前周的最后一天
 ;; M-a     移动到当前月的第一天
 ;; M-e     多动到当前月的最后一天
 ;; M-<     移动到当前年的第一天
 ;; M->     移动到当前年的最后一天
 
 ;;Calendar模式支持移动多种移动到特珠日期的方式
 ;; g d     移动到一个特别的日期
 ;;  o      使某个特殊的月分作为中间的月分
 ;;  .      移动到当天的日期
 ;; p d     显示某一天在一年中的位置，也显示本年度还有多少天。
 ;; C-c C-l 刷新Calendar窗口
 
 ;; Calendar支持生成LATEX代码。
 ;; t m     按月生成日历
 ;; t M     按月生成一个美化的日历
 ;; t d     按当天日期生成一个当天日历
 ;; t w 1   在一页上生成这个周的日历
 ;; t w 2   在两页上生成这个周的日历
 ;; t w 3   生成一个ISO-SYTLE风格的当前周日历
 ;; t w 4   生成一个从周一开始的当前周日历
 ;; t y     生成当前年的日历
 
 ;;EMACS Calendar支持配置节日：
 ;; h       显示当前的节日
 ;; x       定义当天为某个节日
 ;; u       取消当天已被定义的节日
 ;; e       显示所有这前后共三个月的节日。
 ;; M-x holiday  在另外的窗口的显示这前后三个月的节日。
 
 
 ;; 另外，还有一些特殊的，有意思的命令：
 ;; S       显示当天的日出日落时间(是大写的S)
 ;; p C     显示农历可以使用
 ;; g C     使用农历移动日期可以使用
 
 ;;-----------日历设置结束----------------
